home *** CD-ROM | disk | FTP | other *** search
- ==========================
- FADE TO BLACK - Fade.Mak
- ==========================
-
- This sample project demonstrates how to paint a blue-to-black
- gradient on the background of any form. It was designed to
- replicate (as near as possible) the Setup forms used by Microsoft
- and many other software publishers.
-
- This code builds upon that contained in the file FADE.ZIP from
- Brian Stine (CIS 73617,323). I added the capability to do horizontal
- and diagonal gradients, and optimized the code for the color depth
- of the display adapter being used.
-
- To add this to your own project, just add the file FADE.BAS to your
- project and put the following call in your Form_Paint event:
-
- Call FadeForm (Me, <gradient type>)
-
- a <gradient type> of 0 will create a diagonal gradient
- " " " " " 1 " " vertical " "
- " " " " " 2 " " horizontal " "
- any other value will set the background color to Medium Blue
-
-
- Michael E. Reed CIS:71730,573